home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / solidQuadrics / SolidSphere2.wwModel / model.eve < prev   
Encoding:
Text File  |  1995-03-22  |  1.1 KB  |  26 lines
  1. # note that $modelPath is automagically set to be the complete path
  2. # name of whereever this .mdl file wrapper is located
  3. #
  4. source $modelPath/initialDefines.eve
  5.  
  6. # note that since "source" is a built-in tcl command, we needed to
  7. # give it the full path name of the previous file so it could load it.
  8. # In the next command, though, since "loadControlPanel" is a new eve
  9. # command, it is smart enough to append the value of $modelPath to any
  10. # file that doesn't start with "/"
  11. #
  12. loadControlPanel controls.nib
  13.  
  14. startShape aSphere
  15.   EveCmd {Color $sphere(color)}
  16.   EveCmd {Scale $sphere(xScale) $sphere(yScale) $sphere(zScale)}
  17.   EveCmd {Translate $sphere(xTranslate) $sphere(yTranslate) $sphere(zTranslate)}
  18.   EveCmd {Rotate $sphere(xRotate) 1 0 0 }
  19.   EveCmd {Rotate $sphere(yRotate) 0 1 0 }
  20.   EveCmd {Rotate $sphere(zRotate) 0 0 1 }
  21.   SolidBegin primitive
  22.     EveProc {drawInsideAndCaps $sphere(thetaMax) $sphere(zMin) $sphere(zMax) $sphere(radius) $sphere(innerX) $sphere(innerY)} 
  23.     EveCmd {Sphere $sphere(radius) $sphere(zMin) $sphere(zMax) $sphere(thetaMax)}
  24.   SolidEnd
  25. endShape
  26.